home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / Libraries / SAT 2.3.8 / Demos / Zkrolly demo ƒ / sXprite.c next >
Text File  |  1994-08-21  |  637b  |  47 lines
  1.  
  2. //• C translation from Pascal source file: sXprite.p
  3.  
  4. //• sXprite;
  5.  
  6. //• Prototypes, etc.
  7.  
  8. #include "SAT.h"
  9.  
  10.     
  11. FacePtr Xface;
  12.  
  13. void        InitXprite(void);
  14. pascal void        SetupXprite(SpritePtr me);
  15. pascal void        HandleXprite(SpritePtr me);
  16.  
  17.  
  18.     enum {
  19.         xpeed = 2
  20.     };
  21.  
  22. void InitXprite()
  23. {
  24.     Xface = SATGetFace(130);
  25. }
  26.  
  27. pascal void SetupXprite(SpritePtr me)
  28. {
  29.     me->speed.h = xpeed;
  30.     me->face = Xface;
  31.     me->task = &HandleXprite;
  32. }
  33.  
  34. pascal void HandleXprite(SpritePtr me)
  35. {    
  36.     me->position.h = me->position.h + me->speed.h;
  37.     if (me->position.h > gSAT.offSizeH )
  38.     {
  39.         me->speed.h = -xpeed;
  40.     }
  41.     if (me->position.h < -20 )
  42.     {
  43.         me->speed.h = xpeed;
  44.     }
  45. }
  46.  
  47.